home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
os2
/
adaptor.zip
/
ADAPT.ZIP
/
adaptor
/
src
/
scandrv1.c
< prev
next >
Wrap
Text File
|
1993-07-08
|
581b
|
29 lines
/* $Id: ScanDrv.c,v 2.0 91/03/08 18:13:07 grosch rel $ */
# include "Scanner.h"
main ()
{
int Token, Count = 0;
char Word [256];
BeginScanner ();
do {
Token = GetToken ();
Count ++;
# ifdef debug
if (Token != EofToken) (void) GetWord (Word); else Word [0] = '\0';
(void) printf ("%5d%5d%5d %s\n",
Attribute.Position.Line, Attribute.Position.Column, Token, Word);
# endif debug
} while (Token != EofToken);
CloseScanner ();
(void) printf ("%d\n", Count);
return 0;
}
int NextPos ()
{
return (0);
}